Inference at * 1 1 
Iof proof for Lemma primrec add:



1. T : Type
2. m : 
3. b : T
4. c : {0..(0+m)}TT
  primrec(0+m;b;c) = primrec(m;b;c) 

latex

 by ((Subst' 0+m = m 0) 
CollapseTHEN ((Auto_aux (first_nat 1:n) ((first_nat 1:n),(first_nat 3:n
C)) (first_tok :t) inil_term))) 

latex

C.

Definitions	True, T, S  T, , t  T, {T}, P  Q, x:A. B(x), SQType(T),
Lemmas	true wf, squash wf, int seg wf, primrec wf